home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
PhonepakV2_d1.adf
/
rexx
/
TestHost.ppak
< prev
Wrap
Text File
|
1993-04-28
|
1KB
|
26 lines
/************************************************************************/
/* This is a simple script to demonstrate the use of an ARexx host. */
/* First, open the demo system on the PhonePak Switchboard and set the */
/* (Master) mailbox's ARexx host to "PPakTest" using the Route/Set */
/* ARexx Host menu item. Close the Switchboard, choosing the Save */
/* option of the "Save Changes" requester. Then, run this program and */
/* use local access mode to start the demo system. Enter a touch-tone */
/* code while the greeting is playing. The code you entered will be */
/* displayed in the console window in which this program is running, */
/* and the greeting will start over again. Although this example is */
/* not very useful by itself, it demonstrates the ability of an ARexx */
/* script to receive information from LineMan quite handily. */
/************************************************************************/
addlib('libs:rexxsupport.library',0,-30,0)
openport('PPakTest')
r=0
do until r
r=waitpkt('PPakTest')
end
packet=getpkt('PPakTest')
say getarg(packet,0)
reply(packet,0,'(MASTER)')